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300 



abstract structure Exp •< 314 

case Const 306 

val as Integer 
case Bin ■< 308 

op as Op 

left as Exp 302 

right as Exp ■< 304 

case Let ^ 310 

name as Name 

def as Exp 

body as Exp 
case Var 

name as Name 

enum Op 

Add 
Sub 

type Name = String 
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400 



structure Exp 

public override ToString() as String? 
match me 

x as Const: 
return ToString(x.val) 
x as Bin: 

Return "(" + x.left + ToString(x.op) + x.right + ")" 
return '"(let " + x.name + V + x.def + " in " + x.body + 

x as Var: 
return x.name 

ToString(o as Op) as String? 
match o 

Add: return "+" 
Sub: return"-" 
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Closed(e as Exp) as Boolean 
return Closed(e, {}) ^ 510 

type BoundedNames = Set of Name 512 

Closed(e as Exp, ns as BoundedNames) as Boolean 

match e •< 502 

Const( _): return true 504 

Binf_,l.7): return Closedfl. ns) and Closed(r. ns) ■< 
4 Let(n,d,b): return Closedfd, ns) and Closed(b, ns h 
yT Var(n): return n in ns 506 V 

508 \ 

514 
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Eval(e as Exp) as Integer 
require Closed(e {}) 
return Eval(e, {->}) 

type Environment = Map of Name to Integer 
Eval(e as Exp, env as Environment) as Integer 

require Closed(e, Indices(env)) 

match e 

Const(v): return v 

Bin(olr): return Eval(o. Eval(l, env), Eval(r. env)) 
Letfn d,b): return Eval(b, env + {n -> Eval(d, env)}) 
Var(n): return env(n) 

Eval(o as Op, I as Integer, r as Integer) as Integer 
match o 

Add: return + r 
Sub: return - r 
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abstract structure Exp 

case Const 1710 
val as lnteger^^^1711 

case Bin^N w ^1720 
op as Op ^^^1721 
left as Exp 1 722 

right as Exp *~\^ 1 723 

case Let 1 730 
name as Name 1 731 
def as Exp ^v^1732 
body as Exp 1 733 

case Var ^~\^ 1 740 
name as Name 1741 



enum Op 
Add 
Sub 



1750 



type Name = String 



1760 



FIG. 18 



Choose Configuration Elements 



Select Types 



El □ namespace AsmL 
$ C] namespace Microsoft 
S □ na mespace Test 

0 structure Test. Exp. Const 
0 structure Test.Exp.Bin 
[71 structure Test.Exp.Let 
0 structure Test. Exp. Var 
PI enum Test. Op 

□ type Test.Name 

□ type Test.BoundedNames 
PI type Test. Environment 
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H (unnamed configuration) - AsmL Test Generator 



File Edit View Run Options Help 
Config* j FSM j Test Suite j Conformance Test | 



B- Project 

C:\sd\asml2\AsmL\Tools\Tester\Samples\TinvLanguaqe\TinvLanQuaaeTutorial 



Ldoc 



B- 



Domains 



B- Types 

I enum Op = <initial value of> enum of Test.Op 
I- structure Exp = <unspecified> 
^ structure Exp.Bin = <generated; MaxCount=1 ; > 

structure Exp.Const = <generated; MaxCount=3; > 
Ep- structure Explet = <generated; MaxCount=1; > 
Ef3" structure ExpVar - generated; MaxCount=1; > 
type Integer = <unspecified> 
type Name = <unspecified> 
Methods 
fr State Machine 
B • Conformance Bindings 



2010 



mrnrnm 



simplifying 
generating code 
emitting Ctt code 
compiling C# code 



Building project succeeded. 



A 

<• — 



Stephen A. Wight Our Ref. No. 3382-64896 

Klarquist Sparkman, LLP 

121 SW Salmon Street, Suite 1600 

Portland, Oregon 97204 

Telephone: 503/226-7391 

For: ACCESS DRIVEN FILTERING 

Express Mail Label EV339201001US Mailed: August 27, 2003 



Sheet 15 of 17 



FIG. 21 



E3 (unnamed configuration) - AsmL Test Generator 



File Edit View Run Options Help 
Config x | FSM j Test Suite J Conformance Test | 
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B Types 

| enum Op - < initial value of> enum of Test. Op 

j structure Exp = <config of structure TestExp.Const,structure Test.Exp.Bin,structure Test. Exp. Var,structure Test.Exp.Let> 
£■1 structure Exp.Bin = <generated; MaxCount=1 ; > 

structure Exp. Const = < generated; MaxCount=3; > 
Si structure Exp. Let = < generated; MaxCount=1; > 
a- structure Exp.Var = <generated; MaxCounM; > 
j- type Integer = <initial value of> [1,2,3] ^\^y 2110 
L type Name « <initial value of> ["a", "b"] 2120 
Methods 
a- State Machine 
l±l- Conformance Bindings 
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simplifying 
generating code 
emitting C# code 
compiling Ctt code 



Building project succeeded. 
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